unit HREntryBill;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, BaseBill, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters,
  cxContainer, cxEdit, Vcl.Menus, Data.DB, MemDS, DBAccess, Uni, Datasnap.Provider, Datasnap.DBClient,
  cxPropertiesStore, cxClasses, cxStyles, Vcl.DBActns, Vcl.StdActns, System.Actions, Vcl.ActnList, System.ImageList,
  Vcl.ImgList, cxProgressBar, cxDBLookupComboBox, Vcl.StdCtrls, cxButtons, Vcl.ExtCtrls, cxDropDownEdit, cxLookupEdit,
  cxDBLookupEdit, dxGDIPlusClasses, cxImage, cxSpinEdit, cxTimeEdit, cxDBEdit, cxTextEdit, cxMaskEdit, cxCalendar,
  cxLabel, cxGroupBox, cxRadioGroup;

type
  TfrmHrEntryBill = class(TfrmBaseBill)
  private
    { Private declarations }
  protected
    procedure OnNewRecord(DataSet: TDataSet); override;
  public
    { Public declarations }
  end;

var
  frmHrEntryBill: TfrmHrEntryBill;

implementation

uses
  DSUtils;

{$R *.dfm}

{ TfrmHrEntryBill }

procedure TfrmHrEntryBill.OnNewRecord(DataSet: TDataSet);
begin
  inherited;
  SetFieldValNoChg(DataSet, 'applydate', Date);
  SetFieldValNoChg(DataSet, 'sex', 1);
end;

end.
